Dim fso, fld, fldName, drvName, TestFile
drvName="c:\"
fldName = "folder"
Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(drvName & fldName)) Then
    msgbox("Folder istnieje.")
Else
    Set fld = fso.CreateFolder(drvName & fldName)
End If

Set TestFile = fso.CreateTextFile(drvName & fldName & "\hello.txt", True)
TestFile.WriteLine("Tutaj bdzie zawarto pliku!")
TestFile.Close

